

DEF VAR retCode    AS INT NO-UNDO.
  
RUN mail(
    "BCC:fdn@huntkey.net",
            "My subject",
            "My Message",
            "c:\aaa.txt,c:\bbb.txt",  		/* files to send 	           */           
            0,						/* show dialog window */
            OUTPUT retCode).
             
  MESSAGE retCode VIEW-AS ALERT-BOX INFO.




PROCEDURE mail EXTERNAL "C:\Program Files\xpMail\xpMail.dll":
    DEF INPUT PARAMETER mailto		as CHAR.
    DEF INPUT PARAMETER mailsubject		as CHAR.
    DEF INPUT PARAMETER mailText		as CHAR.
    DEF INPUT PARAMETER mailFiles		as CHAR.
    DEF INPUT PARAMETER mailDialog		as LONG.
    DEF OUTPUT PARAMETER retCode		as LONG.
END.
